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ep-1984 00:17:11 VAX=11 Bliss=32 V4.0-74 
371986 13 SbF DISKSVMSMASTER:CF11X.SR 


MODULE DELFIL ( 


; 1 1 

; LANGUAGE (BL1$$32), 
Pe | sea BER 
; = 

Gee 05 ] BEGIN | 
; : 09 1! 
3 : 443 : aaah aaah elaine ati an 

; i Bt 1 i: SIGITAL EQUIPMENT CORPORATIONS MAYTARD. MASSACHUSETTS 
: \¢ ig is ALL RIGHTS RESERVED. ; ‘ ; ; 

@ . * 

; 14 14 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B SED AND COP 

i ae 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH NT CERISE eeND BIA the ; 

; 16 3018 1 !® INCLUSI F THE ABOVE COPYRIGHT NOTICE. THIS E OR AN HER a 

3 17 001 1 '® COPIES THEREOF MAY NOT B OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 18 Bate 1 ‘* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY & 

; is ith : ~ TRANSFERRED. * 

oO . ® 

H 1 0091 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

H 32 00 ¢ 1 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: i 0034 : CORPORATION. * 

. . * 

; 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELI TY OF IT 

; 8 0097 : it SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY Melton tt : 

a . re 

3 8 0028 1 !« 

3 4 it 34 : seckedesebubesasniasehaeeadenbesinmsebensmbubeneneebannedeeaentesneeaebete | 
co 0031 1 !++ 

5 ¢ Ong 1! 

; BO 8 : FACILITY: F11ACP Structure Level 2 

; 35 0035 | ABSTRACT: 

; 37 0037 1! This module deletes a file, returni its block h | 
3 ‘ +4 ' and releasing the file header. sath 2 j-th aiegabart acute oad | 
; 40 0040 | ENVIRONMENT : 

ee 0042 1! STARLET operating system, includi ivileged 

3 ‘8 a ' and Se eeseel ha Stok inie. UEING OY HETVOREE Syeten peryTEde 

8 Bee 

> (47 0069 1 i 

3 rt | Bee : AUTHOR: Andrew C. Goldstein, CREATION DATE: 4=-Apr-1977 15:50 

: 30 050 | MODIFIED BY: 

; 58 0s¢ | i v03-012 CDS0008 Christian D. Saether 22-Aug-1984 | 
3 + bez ! Don't complain about directories either (CDS0006). 
; 38 055 1 v03-011 ACG0444 Andrew C. Goldstein, 21-Aug-1984 20:43 | 
; 2$ bees i Fix error recovery in file ID cache flush code 


16-50 Sep-1 1 VAX-11 Bliss-32 V4.0-74 
1 ~3e0 71 38% 99: ¥; 1 DISKSVMSMASTER:CF11X.SR 
jan D. Saether 14-Aug-1984 
t complain (fbs0860$ about extension headers. 


v03-009 CDS0006 Christian D. Saether 10-Aug-1094 
Add bugchecks to guard against deleting the wrong file, 
and directories in particular. 


oe 
s 


an 


REIDELFIL.B32:1°%" (15 


vO3~010 ¢Ds9007 


6 
bi 
65 v03-008 CDS0005 Christian D. Saether ratiiie cat 
68 Replace TOSS_CACHE. DATA call with KILL_BUFFERS call. 
v03-007 ACG0438 Andrew f: Goldstein, 1-Aug-1984 17:14 
§ Add cache interlock logic 
71 v03-006 ACG 60409 Andrew C Fie Reeder ae ee 0:08 
ue Don't ye leted” file headers, as they are 
7 ithely te be reused Geen, Gus te the fite 4b coche. 
ie Make LY_RVN and DEFAULT_RVN macros. 
6 v03-005 CDS0094 Christian D. Saethe 1-Mar-1984 
a4 Replace call to FLUSH. FID with call. to TOSS CACHE DATA. 
4 v03-004 Eoseees Christian D. Saether 29-Dec-1983 
Hi Use L_NORM Linkage pe | BIND_COMMON macro. 
¢ v03-003 CDS0002 Christian D. Saether 13-Sep-1983 
+ Change interface to allocation serialization. 
5 v03-002 CDS0001 Christian D. Saether 13-May-1983 
a file header deletion processing. 
v03-001 LMP0077 L. Mark Pilant, 31-Jan-1983 10:26 


Eliminate the check made for extension headers as this is 
now done in the DELETE module. An access conflict error 
will result if an attempt is made to delete a file that 
has one of its extension headers accessed. 
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85 
89 
8 88 
89 89 
90 90 
4 1 
38 : 
94 v02-007 ACG0229 Andrew C. Goldstein, 23-Dec-1981 21:59 
95 5 Count file ID cache hits and misses 
3 3$ V02-006 ACG0167 Andrew C. Goldstein Teporotvee 19:25 
98 8 Previous revision history moved to f11B.RE 
99 99 ee 
100 
191 1 
1 . ¢ LIBRARY RE SRC ORARY L1G, L 52" 
' ? REQUIRE ‘SRCS$:FCPDEF .B32'; 
105 1095 
1 1 98 FORWARD ROUTINE 
10 1 DELETE_FILE : L_NORM NOVALUE, ! compiete file deletion 
108 1 DELETE_FID : LINORM NOVALUE , : just release file header 
1 1 RETURN_FILE_NUM : L_NORM, f return file number to cache 
110 1100 REMOVE-FILE-NUM : L_NORM; ! remove file numbers from cache 


10 
15-Sep-1984 aa VAX-11 Bliss-32 V4.0-742 rege ‘ 3 


vOC~0b0 


-Sep-19 0:16 DISKSVMSMASTER:CF11X.SRCIDELFIL.832; 2). 
: 118 1} 1 } GLOBAL ROUTINE DELETE_FILE (FIB, FILEWEADER) : L_NORM NOVALUE = | ; 
Pe UBS | tm : 
i 116 1105 | | FUNCTIONAL DESCRIPTION: 
: 11 11 ii This routine dwletes a file by releasing its blocks to the storage : 
3 118 Hi ; : ; bitmap and ther releasing the header. = ‘ 
: lel 1110 1 | CALLING SEQUENCE: | ; 
H : § Wii : DELETE_FILE (ARG1, ARG2) : 
: 126 1118 1 | INPUT PARAMETERS: | 3 
3 te 11144 «1! ARG1: FIB of operation : 
; : $ 1332 } ARG2: address of file header buffer : 
: 158 1142 1 i IMPLICIT INPUTS: | : 
ieee ii el 
> 131 1120 1% | OUTPUT PARAMETERS: | ; 
: 138 Wert | NONE | ; 
; 1 1158 1 i IMPLiciT outputs: ; 
ia ore : 
: 1 1126 i ROUTINE VALUE: ; 
pie ene tie 7 
; 140 11 § 1 | SIDE EFFECTS: : 
: 133 1% : File deleted, storage map and index file bitmap modified, VCB modified | ‘ 
; 128 1158 | ine ; 
on eee : 
1 HE baw : 
: 148 1 FIB : REF BBLOCK, ! address of user FIB ; 
8 133 i 3 FILEHEADER : REF BBLOCK; ! address of /ige header : 
: 151 1140 2 LOCAL | 3 
3 136 1141 HEADER : REF BBLOCK, ! local address of file header | ; 
3; 15 1168 FCB : REF BBLOCK, ! FCB of header in process : 
3; «6154 114 FILE NUMBER, ! file_number of header being deleted 3 
3 13? 1144 EXT FID : BBLOCK CFIDSC_LENGTH), ! extension file ID . 
ah $ 1145 EX _ SEGNUM, ' header extension segment number 3 
3 13 1338 FICESIZE; ! size of file section : 
; 139 1148 BIND_COMMON:; : 
> 161 1150 2 EXTERNAL ROUTINE ; 
; 16¢ 1151 FILE_SIZE : L_NORM, ' compute file section size F 
: 16 11 § CHARGE QUOTA : LINORM, ' charge user's disk quota 3 
i: 164 11 CHECK : L_NORM, ' compute file header checksum : 
; 6165 1154 SEND_BADSCAN : LLNORM ADDRESSING DDE (GENERAL), 3 
: 166 1155 ! stort bad block scan process 3 
; 16 1126 WRITE BLOCK : L NORM, ' write block to disk : 
; «168 115 TRUNCATE HEADER : L_NORM, ! truncate file header 3 


F Be war Sep-1 7:11 VAX-11 Bliss-32 V4.0-74 4 D 
voL-Ob0 e8ep= 198s 3:50:16 DTseSVMSMASTERSCFTIX«SREIDELFIL.832;1°% (23. v 
é NEXT_HEADER : LNORM; ! read next file extension header ' 


HEADER = .FILEHEADER; 


IF (, perett CFH2Su SEG wun wun EQL 
(Fe FIBSw_FIDd)) 3 HEADER FH2$W_FID)) iif + fid_seq 
ooh -F18 CFIBS6_FID_NMX] NEQ .HEADER CFH2$B8_F1D_NMXJ)) 


THEN 
BUG_CHECK (WRTINVBUF, ‘attempted to delete the wrong file’); 


If the file is marked bad and is not empty, we do not delete the file 
aut rather send it to the bad block scanner, who will analyze the file and 


' 
i 
ete it piecemeal. 


-HEADERLF 


i. od WE ret 
-_ HEADER(F 


SWTEX-FIDRVN] NEQ 


See i sun -HEADER 
SEND BADSCAN CHEADERCFH2SW__ FID}); 


PRERIS ISAS AAO ISS ELST 


: Loop for all headers, releasing the blocks mapped and the headers. 
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ecrney FID_NUM); 

tie a5. “4 CHEADERCFH2S8._ FID_NMX]; 
NURG | Fecord file number for cleanup 
CURRENT. _RVN; 
3 Dawn = 8: ! deleted header has zero file number 
Su HECKSUM] = 6; ! and zero checksum 
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: Credit the header and the blocks it maps to the owner's disk quota. 


* 
bw 
- 
nm 
ro 
me 23 =. 


FILESIZE = 0; 

IF NOT - CLEANUP_FLAGSECLE NOT CHARGED] 

THEN FILESIZE ="FILE size (HEADER) 

IF NOT .CLEANUP_FLAGS CLF _MRNOTCHGS 

THEN FILESIZE = sf ILESIZE * 

CHARGE_QUOTA (.HEADERCFH2SL_ FiLeOwNER?, ~.FILESIZE, BITLIST (QUOTA_CHARGE)); 


' Now return the blocks mopped by one header to the storage map. 
! Then extract the extension header data. 


ame ee a a aa a a at a dd wd a = 


RRUNVS Sane nron—oSeuseAruw— 


2 
Ee 


TRUNCATE HEADER (.FIB, .HEADER); 


EX_SEGNUM = ,HEADERCFH2$W_SEG_NUM) + 1; 
CHSMOVE CrIDeC LENGTH, NEXDERCE Hodw  EXt_F 13, EXT_FID); 


! Now free the header in the index file bitmap. Then chain to the next header, 
H if any, and repeat. 


NEW FID = 0; 
DELETE_FID (.FILE_NUMBER); 


HEADER = NEXT merece (0, O, EXT_FID, .EX_SEGNUM); 
| Re nae EQC 0 THEN EXITLOOP; 
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END; ! end of routine DELETE_FILE 


-TITLE DE As 
-IDENT \vV04-000\ 


-EXTRN FILE SIZE, CHARGE QUOTA 
-EXTRN CHECRSUM, SEND_BABSCAN 
TEXTRN WRITE BLOCK, TRUNCATE HEADER 
-EXTRN NEXT_READER, BUGS_WRTINVBUF 


-PSECT SCODES,NOWRT,2 


0 
21 35 A 0 a S3(HEADER), 4$ 
(HEADER) 


oars 4 (HEADER) 
TSTw 8 (HEADER) 
BEQ 


—> 
Wma 2NSmo~wr 
o 


O3F -ENTRY DELETE_FILE, Save R2,R3.R4,R5,R6,R7,RB,R9 
SE 08 C 0 SUBL2 , SP 
‘ 08 AC OD 0 movi FILEHEADER, HEADER 
04 «AG : 09 TSTw § 4(HEADER) 
16 0c BNEQ 2$ 
50 4 ac D MOVL IB, RO 
08 Aé 4 Aad 01 CMPL =s_-«& (RO), BC HEADER) 
0 Ne BNEQ =-'1$ 
OD Ab 09 AO 9 9(RO), 13(HEADER) 
04 13 BEQL = 2 
rere 1$: BUGW 
e .WORD <BUG$_WRTINVBUF !4> 
: 23: BBC 
1 


8 (HEADER) 
#1, SEND_BADSCAN 


8 (HEADER) FILE NUMBER 
~104(BASES, R 
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1 305-138 134518 DISKSVMSMASTER:CFIIX-SRCIDELFIL.632;1- 
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11 VAX-11 Bliss-32 V4.0-742 Pp 
16 DISKSVMSMASTER=CFIIX.SRCIDELFIL.B32:1. 7 (28 
08 05 #5, 11(R0), 5 ; | 
57 88 8 0D Ag f ‘Stneasen> ite #8, FILE_NUMBER : 1193. 
AB OAA 5 FALE NUMBER, -88(BASE) + 1194) 
AC AA a0 AA ~96(BASE), -84(BASE) : 1195 
9 HEADER) : 1197) 
C (HEADER) : 1198, 
OE ¢ O( HEADER) : 11 
$6 bo O WERDER. : 1509 
00006 CF ef FB a WRITE_BLOCK ; 
8 D F ceSize $1 06 
OA D £0 #29, (BASE), 6% + 120 
6 DD HEADER + 1208 
00006 ct F #i, FILE_SIZE : 
8 0 D RO FILESIZE ; 
02 6A ip € #2?, (BASE), 7$ : 1209 
L : 
5 * poe 13% 
7E CE FILESIZE, =(SP) : 
3C ag DD 60 (HEADER) : 
00006 CF 9 FB #3, CHARGE_QUOTA : 
- 36 Dp HEADER : 1217 
00006 cf 02 FB $2" TRUNCATE_HEADER : 
A6 3C 4 (HEADER), ER_SEGNUM + 1219 
9 04 3 at R 
6E OE Ab 06 38 #6; 4 (HEADER), EXT_FID + 1220 
= §& ? BcBASE) : 1555 
0000v CF FB ait BELETE_FID : 
D x" SEGNUM : 
9 1229 
“Ft 4 
00006 ct g4 F #4, NEXT_HEADER : 
6 ° Dd 0, HEADER ; 
mY) 1 + 1230 
bc : 1233 


; Routine Size: 209 bytes, Routine Base: S$CODES + 0000 


: | 


-Sep-1 :17:11 VAX=-11 Bliss-32 V4.0-742 7 Dd] 
arr 90: 4bi 16 DISKSVMSMASTER:CF11X.SR RCIDELFIL.832; Ne 9 3) 
} ¢ } GLOBAL ROUTINE DELETE_FID (FILEUM) : NORM NOVALUE = ; 
1 1 tee ; 
1 1! 3 
} ; : FUNCTIONAL DESCRIPTION: : 
1240 1! This routine marts ire indicated file header free in the index | : 
: ? : ; file bitmap. : 
1043 1 | CALLING SEQUENCT:: : 
: rf} : DELETE _HE ADER (ARG1) , 
1066 1 | INPUT PARAME RS: : 
: 2 ; ARG1: file number of header : 
1249 1 | IMPLICIT INPUTS: | : 
: ? ; CURRENT_VCB: VCB of volume . 
° | e 
1 § 1 ! OUTPUT PARAMETERS: 3 
: i : NONE é 
1255 1! IMPLICIT OUTPUTS: | F 
1 1! NONE : 
1 $ 1! 3 
1 : 1 ! ROUTINE VALUE: é 
1 1! NONE F 
1 $9 1! | 3 
1261 1 ! SIDE EFFECTS: $ 
: 66 : Header deleted - index file bitmap & VCB altered : 
1264 1 ie- ; 
} o2 BEGIN | ; 
1 es | ; 
1 o8 BUILTIN 3 
1 FP; | Py 
1 % 3 
1271 LOCAL 8 
127 ir CH 2 : REF BBLOCK, ! address of cache block i 
127 FID_CACHE : REF BeLOCr. ' address of file number cache 3 
1274 LOCR_STATUS : VECTOR (2), ! lock status block 3 
1275 ven, ' relative block in bitmap F 
1 2 BEST_VBN, i best block to return bits to F 
127 COUN ' number 9 FID's in current block 3 
1 % BEST fount, ' number if FID's in best block : 
1 BLOCR ' block number of current entry 3 
1280 FFER; i bitmap buffer 3 
1 ; EXTERNAL : 
1 PMSSGL_FIDHIT : ADDRESSING_MODE (GENERAL) ; 
1 count of file ID cache hits ; 
1285 PMSSGL_FIDMISS : ADDRESS 1NG_MODE (GENERAL) ; 
: count of file ID cache misses ; 
BIND_ COMMON; ; 
1 EXTERNAL ROUTINE : 
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:C 


H 10 
16-Sep-1984 00:17:11 VAX-11 Bliss-32 
14-Sep-19 RES DISKSVMSMASTER 
ht att ed LOCK : L_NORM, 
INIT_FID CACHE =: L-NORM, ! initialize file ID cache lock 
READ BLOCK : LINORM, ! read a block from the disk 
WRITE BLOCK : LINORM, ' write it back 
ZERO_ON_ERROR; ! return zero on error signal (handler) 


! Serialize against other storage or file header allocation/deallocation 
: operations. 


ALLOCATION_LOCK (); 


If this is not a flush call, we delete the file number by returning it 

to the file number cache. If the cache fills up, the kernel mode routine 
returns LBC. We then scan the cache, looking for the largest group of file 
numbers that are all in the same bitmap block (up to half of the cache), 
and then flush those from the cache. If this is a cache flush call or 

the volume is marked for dismount, however, we flush the entire cache. 


CHE = .CURRENT veBtVCBSL CACHE); 
D_CACHE = .CACRECVCASL_FIDCACHE); 


fi 
| 
F_ .FILENUM NEQ 0 
HEN 


EGIN 
IF NOT .CACHECVCASV_FIDC_VALID] 

THEN INIT_FID_ CACHE (. CACHE); 

JF KERNEL _CALC (RETURN_FILE_NUM, .f ILENUM) 


C 
F 
I 
T 


BEGIN 
PMSSGL_FIDHIT = .PMSSGL_FIDHIT + 1; 
RETURN; 


IF .FILENUM NEQ 0 
AND. CACHECVCASV, FIDC_VAL1DJ 


BLOCK = (. VECTOR CFID_CACHECVCASL_FIDLISTJ, .J-1] - 1) / 4096; 
IF .BLOCK NEQ .VBN 


UNT + 1; 
IF .COUNT GTRU .BEST_COUNT 


2 
- SRCIDELF IL.832; 
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15-50 gon" 198% 99: 1] VAX-11 Bliss-32 V4 
-Sep-1 DISKSVMSMASTER:CF11X.SRCIDELFIL.B32;1 (3). 


H 1 H BEST_COUNT = .COUNT; 

3 ! ? FP ae = .VBN; 

3 1 4 If .BEST_COUNT GEQU .FID _CACHECVCASW_F IDCOUNTI/2 

; 1 THEN EXITLOOP; 

5 : END; 

3 1 ' Read the Sppreertete aia return the desired number of file numbers to 

3 | } it, and w ite it back 

: i 

3 1 If .BEST_VBN GEQU .CURRENT ycotycese BMAPSIZEJ 

3 ! THEN BUG_CHECK (BADFID, FATAL, P File number out of range for this volume’); 

3 1 BUFFER : READ Poe (.BEST VBN + .CURRENT_VCBCVCBSL JOAAPL ON) . INDEX_TYPE); 

; 1 KERNEL ¢ ALL (REMOVE FILE_NOM, .BEST_COUNT> .BEST_VBN, .BUFFER is | 

; 37 ! RITE BLOCK BUTTER). 

: 37 1 

; 8 1 ' If this is a poche flush, loop for all the blocks represented in the 

; 380 1 ' cache, read the block, return the file numbers, and write it. Then 

3 81 1 ' mark the coeke invalid, and release the cache lock if there is one. 

3 Hf 1 ! This operation is done under a handler to ensure its completion in 

3 1 ! the face of 1/0 errors. | 

; «3846 1 ' 

3 5 1 

3 1 ELSE 

3 8 1 

; 388 1 iT | 

; 389 1 ontit ~CACHECVCASW. FIDCOUNT] EQL 0 

; 390 1 dO | 

; 391 1 4 BEGIN 

3 4 1 4 VBN = (.FID cage cae. FIDLIST] - 1) / 4096; 

; 39 1 4 IF .VBN GEQO .CURRENT VCBLVCB$8 IBMAPSIZE 

; Be : 2 THEN BUG_ CHECK tBADF IBY FATAL, “ACP file number out of range for this volume’); 

; 396 1 4 BUFFER = READ BLOCK (.VBN + .CURRENT_VCBCVCBSL_IBMAPLBN), 1, INDEX_TYPE); | 

: 397 1 4 if ~-BUFFER NEG 

; 398 1 4 THEN 

; 399 1 BEGIN 

; 400 1 KERNEL_CALL (REMOVE FILE NUM, 0, .VBN, .BUFFER); 

: 401 1 WRITE_BLOCK (.BUFFER); 

: $08 1 E 

3 ret 1 4 ELSE 

3; 4 1 4 FID_CACHECVCASW_FIDCOUNT] = 0; 

; 405 1 END; 

; 606 1 IF .FID_CACHECVCASL_FIDCLKID] NEQ 0 

: ret 1 THEN 

 & 1 é BEGIN 

; 409 1 4 LOCK STATUSCI] = .FID_CACHECVCASL_FIDCLKIDI; 

: 610 P 1 4 If NOT SENQW (EF = EFN 

> 411 P 1 ri CKMODE = LCKSK | 

3 = 
41 P 1 4 FLAGS LCKSM choaueve OR LCKSM_SYNCSTS OR LCKSM_CONVERT OR LCKSM_CVTSYS, 

: 413 Pp ! $ tk SB = LOCK_STA 

3 415 1 4 THEN BUG_CHECK (XQPERR, FATAL, "Unexpected lock manager error’); 

; 616 1 3 END; 


10 | 
1-50 1984 00:17:11 VAX=11 Bliss-32 V4.0-74 P 
1 3057138 BE DLSKSVMSMASTERSCETIX.SRCIDELFIL.832;1°° JS 


1405 CACHECVCASV_FIDC_VALID) = 0; : 
1? END; : 
1408 END; ! end of routine DELETE_HEADER | ; 
.EXTRN PMSSGL_FIDHIT, PMSSGL_FIDMISS | ; 

XTRN ALLOCATION LOCK ; 

SEXTRN INIT_FID CACHE, READ BLOCK ; 

-EXTRN ZERO ON_ERROR, BUGS BADFID : 

-EXTRN SYSSENQQ, BUGS_XOPERR ; 

OBFC 00000 ENTRY DELETE_FID, Save R2,R3,R4,R5,R6,R7,RB,R9,- = 1234 : 

SE 08 ¢2 SUBL2 #8, SP ; : 

98 AA Sf i PUSHAB -104(BASE) : 1285 ; 

00006 CF 00 FB 00008 CALLS #9 ALLOCATION_LOCK : 1301 ’ 

0 99 BE DO 00000 MOVL  a0(SP), RO : 1311 : 

4 AO D 11 MOVL  88(RO) HE : : 

2 64 D 9 13 MOVL (CACHES, FID_CACHE + 1312 ; 

06 AC D 1 TSTL  FILENUM > 1314 ; 

1D 13 00018 BEQL 2s : ; 

07 0B As €8 0001D BLBS 1(CACHE), 1% + 1317 ; 

54 DD 00021 PUSHL CACHE + 1318 ; 

00006 CF 01 FB 00023 CALLS #1, INIT_FID_CACHE : : 

04 AC DD 00028 1$ PUSHL FILENUM : 1319 ; 

0000v CF o1 FB 00 CALLS #1, RETURN_FILE_NUM : ; 

07 0 €9 000 BLBC ~=._«aRO,._ 2 : ; 

000000006 00 b6 00 INCL  PMSSGL_FIDHIT : 1322 ; 

4 000 RET : 1321 ; 

06 =A D3 003A 28: TSTL FILENUM + 1327 ; 

0 12 00030 BNEQ 4$ : ; 

0087 31 O003F 3s: BRW 11$ : ; 

9 0B AG OE9 0042 4s: BLBC 11(CACHE), 3$ : 1328 3 

000000006 00 06 0004 INCL  PMS$GL_FIOMISS : 1331 ; 

58 04 0004C CLAL BEST_COUNT : 1334 3 

53 01 CE 0004E MNEGL #1, QBN > 133 : 

58 92 A2 3C 00051 MOVZWL gf iD CACHE), R11 + 1334 ; 

56 4 Me OF 0055 MOV 6(FIB_CACHES, R : 1337 ; 

d4 00059 CLRL } ; ; 

1 11 00058 BRB $ : ; 

5! FC A640 1 ¢3 00 50 5$: SUBL 3 #1, -4(R6)CJ), RI : : 
9 31 00001000 8F ¢C 9 $3 DIVL3 #4696, R1, BLOCK ; : 
3 9 D1 CMPL BLOCK, VBN : 1338 ; 

5 13 $ BEQL 6 : : 

53 9 D MOVL BLOCK, VBN > 1341 : 

7 D4 7 CLRL COUNT : 1342 Py 

7 D6 75 6$: INCL COUNT > 1344 3 

58 7 : a CMPL COUNT. BEST_COUNT : 1345 ; 

8 ; 09 7¢ MOVL COUNT, BEST_COUNT > 1348 : 

p 7F MOVL yen BEST VEN > 1349 ; 

1 02 =A 7$: MOVZWL 2(FID CACRE), R1 > 1351 ; 

1 C DIVL2. #2, RT : : 

1 p CMPL BEST_COUNT, R1 ; ; 

4 1€ C BGEGU : ; 
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12-808- 1382 90: 4b; 16 DISKSVMSMASTER:CF11X.SRCIDELFIL.B32;1 . (4) 
CB 5B F $: AOBLEQ R11, J, 5$ 3 1334 ; 
39 00 : 68 5 gf: MOVL a0(SP); RO : 1389 ; 
38 AO FD CMPZV #0, #8, 56(RO), BEST_VBN : ; 
4 1a 0009C BGTRU 108 : ; 
Fer 9 UGW + 1360 ; 
90 O* OOOA WORD <RUGS_BADF 1D 14> : ; 
0 DD OOOA2 10$:  PUSHL # + 1362 : 
1 Dp A PUSHL #1 : ; 
50 08 8 g A6 MOVL  a@8(SP), RO : ; 
B045 9F OOOAA PUSHAB @48(ROSCBEST_VBNJ : ; 
00006 cf FB OAE CALLS #3, READ BLOCK : ; 
D 4 MOVL RO YFFER : 3 
0OAO BF BB 00086 PUSHR  #*M<R5,R7> + 1363 3 
DD OOOBA PUSHL BEST COUNT : : 
0000v CF 9 FB OOOBC CALLS #3, REMOVE_FILE_NUM : 3 
DD 000C1 PUSHL 8 + 1364 : 
00006 CF 01 FB 000C¢ CALLS #1, WRITE_BLOCK : ; 
04 00¢ RET + 1327 ; 
6D 00996 CF 99¢ 11$:  MOVAB ZERO_ON_ERROR, (FP) + 1376 ; 
02 A2 85 OOOCE 12$:  TSTW (FIB_ CACHE) : 1377 ; 
4C 13 00001 BEQL : : 
50 24 =A 01 ¢3 00003 SuBLS #1, 36(FID_CACHE), RO + 1380 ; 
53 50 00001000 8F C7 000D8 DIVL 696, RO, ~VBN ; ; 
50 00 BE DO 000E0 MOVL a0(SPS, RO ; 1381| : 
53 38 =A 08 00 FD O0E4 CMP2V #9 #8; 56(RO), VBN : : 
04 1A OOOEA BGTRU 138 : ; 
FEFF OQOOEC UGW + 1382 : 
9000s O0E «WORD  <BUG$_BADFID!4> : ; 
03 DD OOOFO 13$:  PUSHL #3 + 1384 ; 
01 DD 000F PUSHL : ; 
50 08 BE DO O00F4 MOVL  a8(SP), RO : ; 
30 B043 9F O00F8 PUSHAB a48(ROSCVBN) : ; 
00006 CF 03 FB OOOFC CALLS #3, READ BLOCK : ; 
57 0 OD St MOVL RO, BUFFER 3 3 
14 13 001 BEQL 148 > 1385 ; 
0088 or BB 00106 PUSHR #*M<R3,R7> ; 1388 3 
D4 OO10A CLRL = =( SP) : : 
0000v CF Q FB 0010C CALLS #3, REMOVE_FILE_NUM : : 
DD 00111 PUSHL BUFF : 1389 : 
00006 CF 01 FB 113 CALLS #1, WRITE_BLOCK ; : 
B4 11 0011 BRB 12$ : 1385 ; 
02 A2 BA 11A 14%:  CLRW = 2¢F ID_CACHE) ; 139¢ : 
AF 11 0011D BRB 12$ ; 132 ; 
06 =A p 11f 15$:  TSTL 4(FID_CACHE) : 1394 ; 
2 122 BEQL 16$ 3 $ 
08 AE 04 A2 p 124 MOVL  4(FID CACHE), LOCK_STATUS+4 : 1397 ; 
7E 7C 00109 CLRO = = (SP) : 1402 : 
7E 7C 00128 CLRQ = (SP) : : 
7E 7C 00120 CLRQ = (SP) ; : 
7E pa 10F CLRL gp) ; ; 
7E 4E 8F 9A 00131 MOVZBL #78, -(SP) ; ; 
24 «OA 9 135 PUSHAB Lo K_STATUS ; : 
7 1E 7D 00138 MOVQ #30,7=(SP) ; : 
000000006 0 9B r 1 CALLS #11, SYSSENQW : : 
4 EB 0014 BLBS sO, 1 : 3 
FEFF 0014 BUGW : 1403 : 
0000* 0014 «WORD <BUG$_XQPERR!4> : : 
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OB A4 01 BA 8 133 168: Bi cee #1, 11(CACHE) \é ; 


; Routine Size: 334 bytes, Routine Base: S$CODE$ + 00D1 


m1 
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vOs~000 18 sort 9h 3i45:18 — DISKSUMSMASTERSCHTiX-SRCIDELFIL.832;1°% (43 
LN 


; 4 3 1683 ROUTINE RETURN_FILE_NUM (FILE_NUMBER) : L_NORM = 

: Ose ie yi 

; 436 1418 | FUNCTIONAL DESCRIPTION: 

: 428 1415 1: This routine returns a file number to the yetune. s file number 

: 429 1618 1! cache. If the cache fills up as a result, it also sorts the 

3; 6 1417 1! entries and returns failure status to signal the caller thet the 

; 431 1018 1! cache should be emptied. 

: 28 1226 1 i 

: 4 1421 1 | CALLING SEQUENCE: 

3 : 5 1? § ! RETURN_FILE_NUM (ARG1) 

: 4 1424 1 § INPUT PARAMETERS: 

3 ? : 1? 5 ! ARG1: file number to return 

: 440 14 3 1: IMPLICIT. INPUTS: 

3; 441 1428 1! CURRENT_VCB8: VCB of volume 

3 rr 1 4 : } CURRENT_UCB: UCB of volume 

: 444 1431 1 | OUTPUT PARAMETERS: 

: ote 1288 1 | — 

: 447 1434 1 | IMPLICIT OUTPUTS: 

Bion i 

: 450 1437 1 | ROUTINE VALUE: 

: 451 1438 1! 1 if success 

; $28 1e7y ' 0 if cache is now full 

> 454 1441 1! SIDE EFFECTS: 

; 455 ed | - file ID cache modified 

; 456 144 1! 

3; 457 1444 1 !-- 

; 458 1445 1 

3; 459 1446 BEGIN 

; ay 1228 5 LOCAL 

: 462 1449 CACHE : REF BBLOCK, ! address of cache block 

; 46 1450 FID_CACHE : REF BBLOCK, ! address of file number cache 

: re ¢) 163) J: ' cache index 

> 466 1488 BIND_COMMON; 

2. ete 

: 469 1638 ' Scan the cache for an entry higher than the file number being returned. 

; 470 145 ! Shuffle the cache upward and insert the file number in order. If the 

3; 471 1628 ' cache fills up, return failure to cause a cache flush. 

a 1h 

; 47% 1461 2 CACHE = .CURRENT VCBCVCBSL CACHE); | 

: 45 166@ 3 FID_CACHE = . CACRELVCASL_FIDCACHE J; | 

: 477 1464 9 UNTIL’ .J GEQU .FID_CACHECVCASW_F IDCOUNT) 

: 478 1465 5 D0 | 
| 
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1en8ee= 1 8he PONb TS Peek ueRAAR Teas CHT Sc See speren.e32:1°% «fh 
ROUT:NE REMOVE_FILE_NUM (COUNT, VBN, BUFFER) : L_NORM = 

See 

i FUNCTIONAL DESCRIPTION: 


This routine removes the specified entries from the file ID cache 
and marks then free in the index file bitmap block supplied. 


$8 
= 


woo 


i CALLING SEQUENCE: 
REMOVE _FILE_NUM (ARG1, ARG2, ARG3) 


' INPUT PARAMETERS: 

: ARG]: number of entrues to remove (0 to remove ail) 
ance: VBN of bitmap buffer 

ARGS: address of bitmap buffer 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
} IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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, CURRENT_VCB: address of volume VCB 
i QUTPUT PARAMETERS: 
; NONE 


te 6 > db _» >» 2 


i IMPLICIT OUTPUTS: 
i NONE 
( ROUTINE VALUE : 


i SIDE EFFECTS: 
file ID cache altered, bitmap buffer modified 
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NAVE UN 0 OBNOUNE WN SH O4@DNOUF Ww 


BUFFER : REF BITVECTOR; ! bitmap buffer 

LOCAL 
F ID_CACHE : REF BBLOCK, ! address of file number cache 

‘ ' counter of entries removed 

J ! index into cache 
FILE_NUMBER, i file number-1 of entry 
BITPOS; ! bit position in buffer 

BIND_ COMMON; 


! Scan the file ID cache for entries whose bitmap VBN match those of the 

! buffer. When one is found, clear the corresponding bit in the bitmap, 

! decrement the count in the cache, and shuffle down the remaining entries 
: to keep the cache compacted. 
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FID CACHE = .BBLOCK C.CURRENT_VCBCVCBSL_CACHE], VCASL_F IDCACHE); 
K = COUNT; 


me ee em em me ee ee ed ed ed wd 
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JDELF IL .832; 


11K. SRC 


F 


Med 0-742 


precedes the current bitmap 


! end of routine RETURN_FILE_NUM 


- VBN; 


OR CE ID CACHECVCASL FIDLISTI, .J=1] = 13 
EOL”. VBN 


IBMAPVBN] = 


R= ,VECT 
ER / 4 

F 

T 

3 

E 

Vv 


.VBN LSSU .CURRENT_VCBCVCB$B_IBMAPVBN) 
vcBCvcesé 


BEG 
FIL 
‘ 
HE 
= 
END 
If we have freed file numbers in a block that 


scan point, reset the scan point. 


ER<O 
Vv 
C 
C 
UNTIL .K EQL 0 OR .J GTRU .FID_CACHECVCASW_F IDCOUNT); 
EN CURRENT_ 
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ve 


13 Q 4 5 
58 02 Ab 10 op if aan i, #16, 2(FID_CACHE), J : 
98 AA D A 4$: MOV -104(BASE), RO : 1 
08 AC 3a A 38 99 ‘ ay #0, s 5BtRO) : eng! 
AOA 08 A MOVE VBN, S8(RO) 1566. 
4 of pO C S$: OVL #1, RO : 1368 | 


; Routine Size: 112 bytes, Routine Base: SCODES + 0280 


| 
| 
RT dw 


; PSECT SUMMARY | : 
; Name Bytes Attributes | : 
; SCODES 752 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | ; 

| ; 

| : 
: Library Statistics ; 
ee ae oo a ree ee Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
;  ,$255$DUA28:(SYSLIBILIB.L32;1 18619 50 0 1000 00:01.8 : 

a 
: COMMAND QUALIFIERS | 7 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:DELF IL/OBJ=OBJ$:DELFIL MSRCS:DELFIL/UPDATE=(ENHS:DELF IL) | 

| 

| 

j 


; Size: : a i 5 0 data bytes 


: 362 
Fonothot tas templete’ 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 
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VAX/VMS V4.0 CONFID 


